(macro-declaration-function): Add a `doc-string' declaration.

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index c31036f02edf52f8fbc9bd1a6f5fdca196207ee3..453bef5ecbb0ae9e45af27aeedca510d28496ddd 100644 (file)
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -50,6 +50,8 @@ The return value of this function is not used."
             (put macro 'lisp-indent-function (car (cdr d))))
            ((and (consp d) (eq (car d) 'debug))
             (put macro 'edebug-form-spec (car (cdr d))))
+           ((and (consp d) (eq (car d) 'doc-string))
+            (put macro 'doc-string-elt (car (cdr d))))
            (t
             (message "Unknown declaration %s" d))))))